5 DV=PEEK(186)
10 POKE53280,0:POKE53281,0
15 IFF1=1THEN35
16 IFF1=2THEN40
18 IFF1=3THEN45
19 IFF1=4THEN50
20 PRINT"[147]":GOSUB800
30 F1=1:LOAD"STAR 1",DV,1
35 F1=2:LOAD"STAR 2",DV,1
40 F1=3:LOAD"STAR 3",DV,1
45 F1=4:LOAD"STAR 4",DV,1
50 PRINT"[144]LOAD"CHR$(34)"STAR TREK V1.D"CHR$(34)","DV
60 POKE198,6
70 DATA19,13,82,85,78,13
80 FORI=1TO6:READX:POKE630+I,X:NEXT
100 POKE44,24:POKE24*256,0
200 NEW
800 PRINT"";:FORY=0TO22:X%=RND(1)*38:PRINTTAB(X%)".":NEXT
900 PRINT"[146][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
995 PRINT"[206]  [206][205][206]    [206][165][206]  [206][205][206]   [206][205]"
1000 PRINT"[169]   [223][146][206][165]     [146][206][169]   [223][146][206][165]    [223][146][206][165]
1010 [153]" WAITTHEN WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT FN
1020 PRINT" [146][206][163][163][206][205] [146][167] [146][206][163][163] [146] [165] [146][206][163][163] [146][206]
1030 [153]"(null)   (null)WAIT(null)FN WAITTHEN     WAIT FN    WAITSTEPFN
1040 PRINT" [206][206][165] [146] [165] [146][167] [146][167] [146] [165] [146][167] [146] [165]
1050 [153]" WAIT(null)TAB(TAB( WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT(null)(null)
1060 PRINT"[223]   [146][169] [146][206] [146][206] [146][206] [146][206] [223][146][206]
1065 [153]"WRITTEN & DONATED TO TPUG BY DAVID NEALE";
1070 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
1080 PRINT"[206]    [206][165][206]   [206][205][206]    [206][165][206][206][165][206][206][165]
1100 [153]"     WAIT(null)    (null)WAIT(null)FN     WAIT(null) WAIT FN WAIT(null)
1110 PRINT" [146][167] [146][167] [146] [165] [146][167][164][164] [146] [204][169][146][169]
1120 [153]" WAITTHEN WAIT(null)TAB(TAB( WAIT(null)  WAIT(null) (null)FN WAIT(null)STEPWAITSTEPFN
1130 PRINT" [146][167]    [146][169][165]   [146][206]   [146][206][205]
1140 [153]" WAITTHEN WAITTHEN WAIT FN WAITTHENTOTOTOTO WAITTHEN(null)(null)WAIT (null)
1150 PRINT" [146][167] [146][167] [146][206][205] [146][206]   [206][165] [146][167][223][223][146][206][165]
1160 [153]" WAIT(null) WAIT(null) (null)WAIT(null)     WAIT(null) WAIT(null) WAIT(null)
2000 RETURN